\|\\;				Define Brick Character
\;
\;
\;			       Define Fonts
\;
\M0FIX25;\;	fixed font
\M1BAXL30;\;	light
\M2BAXI30;\;	italic
\M3BAXB30;\;	bold
\M4CLAR40;\;	title font
\M5BASL35;\;	subtitle font
\M6BDJ20;\;	superscript and subscript font
\M7ZERO30;\;	accents
\M8GRFX25;\;	graphics font
\M9CORON;\;	font for names of sets
\MAMATH30;\;	mathematical font
\;\MBFIX20;\;	small fixed font
\MCGRK30;\;	Greek
\MDCYR30;\;	Cyrillic for the word samizdat
\;
\F0\;		select font 0
\;
\;
\;                           Page Dimensions
\;
\←=200;\→L\;		left margin
\←=1510;\→R\;		right margin
\e=2200;\;		set length of page
\T=200;\;		set top of page
\B=2000;\;		set bottom of page
\;
\;				 Assembly Flags
\;
\∞SUMMARYFLAG[\←=0;]\;	print summaries
\∞REMARKFLAG[\←=0;]\;	print remarks
\∞REVNOTEFLAG[\←=1;]\;	print notes to reviewer
\∞RUNTITFLAG[\←=1;]\;	print running titles
\;
\;
\;			      Special Feature Bits
\;
\⊂'000001;\;	VERHHR - H and h height of font pseudo-register
\;	\⊂'000002;\;	VERTRC - trace and other tty output
\⊂'000004;\;	VERSIM - linefeed simulator
\⊂'000010;\;	VERSGK - double gap after period and colon
\⊂'000040;\;	VERREM - REM's syntax form macros with args definitions
\⊂'000100;\;	VEREVE - turn on EVERYPAGE macro
\⊂'000400;\;	VERRHT - modified way to pass args with nest chars
\⊂'010000;\;	VERPAG - automatic page change
\⊂'100000;\;	VERESC - in body of macro, \ converted to <brick> token
\⊂'200000;\;	VERXX1 - correct output overlay
\;	\⊂'1000002;\;	VE1OPN - print output page numbers
\;
\;
\@NUMER.POX[POX,WD];\;		read in numeric macros
\;
\@STRING.POX[POX,WD];\;		read in file of string macros
\;
\@ROMLET.POX[POX,WD];\;		load letter and roman numeral coversions
\;
\@DATE.POX[POX,WD];\;			read in date macros
\;
\∞EVERYPAGE[\N
\	;\P\N				save ac
\	;\!INCR(PAGNUM);\N		increment global page #
\	;\←U\+=1;\→U\N			increment local page #
\	;\!INSECFLAG;\?SECPAGNUM(\DS,\DU);\N
\	;\N				print sec and pag nums ?
\	;\oABSPAG{0 - \!PAGNUM;}\N	global page # overlay
\	;\&DATPAG←DATIM&ABSPAG;\N	join it with date overlay
\	;\WDATPAG,=200;=2150;\N		print date and page overlay
\	;\∂←ABSPAG;\N			expunge abs page overlay
\	;\p]\;				restore ac
\;
\;
\8SECPAGNUM(SEC,PAG)[\N
\	;\oPAGNO{0\!ROMAN(⊗SEC⊗);-⊗PAG⊗}\N
\	;				construct local page overlay
\	;\WPAGNO,=800;=2100;\N		print local page overlay
\	;\!EVAL((\∂←)PAGNO(;));]\;	expunge local page overlay
\;
\;
\@MISMAC.POX[POX,WD];\;		load miscellaneous macros
\;
\@SECT.POX[POX,WD];\;		read in section and subsection stuff
\;
\@REF.POX[POX,WD];\;		read in cit and ref stuff
\;
\<=1;PROC.CNT;\;
\;
\!EVERYPAGE;\;
\,